  10 :RETURN 
  25 BC=RND (256);FC=BC+4+RND (32)×8
  30 CLEAR ;NT=0
  40 FOR Z=0TO 99;CY=0
  50 PRINT Z,"  ",
  60 @(Z)=KP;TV=@(Z);IF @(Z)=31Z=Z-2
  77 PRINT 
  80 NEXT Z
  82 FOR Z=0TO 99;@(100+Z)=@(Z);NEXT Z
  90 H=0;C=0;Z=0
 110 CLEAR 
 120 PRINT "COMPUTER =",#2,C,"   HUMAN =",#2,H
 130 PRINT "TRY TO UNSCRAMBLE THIS    WORD BEFORE I MAKE A"
 140 PRINT "MONKEY OUT OF YOU!
 150 GOTO 1000
 155 PRINT 
 160 T=1
 162 O=0
 165 BOX -40,-20,80,18,2
 166 S=225
 167 IF TR(1)S=S-1;GOTO 167
 170 IF JY(1)D=KN(1)÷18+72;GOTO 190
 180 D=KN(1)÷18+83
 190 CY=-8;CX=-80
 195 PRINT #1,S÷5
 200 FOR Y=(100+Z)TO (99+T+Z)
 205 S=S-1
 210 IF @(Y)<65GOTO 215
 212 TV=@(Y)
 215 NEXT Y
 220 TV=D
 230 IF TR(1)K=D;GOTO 250
 235 IF S<0GOTO 260
 240 GOTO 170
 250 IF K=@(100+Z+T)GOTO 300
 260 PRINT 
 270 PRINT "SORRY!";GOSUB 2000
 280 GOTO 165
 300 T=T+1
 310 IF T=N+1PRINT ;PRINT "VERY GOOD!";GOTO 330
 320 GOTO 165
 330 H=H+1
 340 FOR L=1TO 3000;NEXT L
 350 Z=Z+10
 360 IF Z>99GOTO 5000
 370 GOTO 110
1000 PRINT 
1010 N=@(Z)-48;U=0
1020 M=RND (N)
1030 IF @(M+Z)=0GOTO 1020
1040 TV=@(M+Z);@(M+Z)=0
1050 U=U+1
1060 IF U=NGOTO 155
1070 GOTO 1020
2000 O=O+1;BOX 40,-20,2,30,1;BOX 55,-5,30,2,1
2010 IF O=1RETURN 
2020 IF O=2BOX 59,-10,1,7,1;RETURN 
2030 IF O=3BOX 54,-14,11,1,1;RETURN 
2040 IF O=4BOX 54,-11,3,3,1;BOX 54,-13,1,1,1;RETURN 
2050 IF O=5BOX 48,-17,1,7,1;BOX 49,-20,3,1,1;RETURN 
2060 IF O=6BOX 54,-16,7,3,1;BOX 54,-18,3,2,1;RETURN 
2070 IF O=7BOX 59,-19,7,1,1;BOX 62,-17,1,4,1;BOX 64,-16,5,1,1;BOX 66,-17,1,1,1;RETURN 
2080 IF O=8BOX 53,-22,1,5,1;BOX 52,-24,2,1,1;RETURN 
2090 BOX 55,-22,1,5,1;BOX 57,-24,2,1,1
2100 C=C+1
2110 PRINT "SORRY ABOUT THAT!"
2120 PRINT "THE WORD IS '",
2130 FOR Y=(101+Z)TO (100+Z+N)
2140 TV=@(Y)
2150 NEXT Y
2160 PRINT "'"
2170 GOTO 340
5000 PRINT "THAT'S THE LAST OF THE 10 WORDS!
5010 IF H>7PRINT "YOU DID OK!
5020 IF H<5PRINT "BETTER LUCK NEXT TIME!
5030 PRINT "YOU GOT",#3,H," CORRECT!
5040 PRINT "IF YOU WANT TO TRY AGAIN, PULL THE TRIGGER!
5050 IF TR(1)GOTO 5070
5060 GOTO 5050
5070 FOR Y=0TO 99
5080 @(Y)=@(Y+100)
5090 NEXT Y
5100 GOTO 90
RUN 
